home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 30 / PC Gamer IT CD 30 2-2.iso / drivers / videodrv / s6326 / DRIVER / OS2 / DBCS.30 / SETUP.CMD < prev    next >
OS/2 REXX Batch file  |  1996-08-26  |  5KB  |  160 lines
  1. /***************************************************************************/
  2. /*                                                                         */
  3. /* Copyright (c) 1995 SiS Corp. Setup Utility                              */
  4. /*                                                                         */
  5. /***************************************************************************/
  6.  
  7. Trace 'O'
  8. Address CMD
  9. '@ECHO ON'
  10.  
  11. /**************/
  12. /* Initialize */
  13. /**************/
  14. Call rxfuncadd sysloadfuncs, rexxutil, sysloadfuncs
  15. Call sysloadfuncs
  16.  
  17. toolpath = ''
  18. bootdrive = Substr(Translate(Value('PATH',,'OS2ENVIRONMENT')),Pos('\OS2\SYSTEM',Translate(Value('PATH',,'OS2ENVIRONMENT')))-2,2)
  19. tooldrive = bootdrive
  20. toolpath=tooldrive||"\SISDRV"
  21.  
  22. "md" ""||bootdrive||"\sisdrv  "
  23.  
  24. Say ""
  25. Say " Copy Files ...........Please Wait"
  26.  
  27. '@ECHO OFF'
  28. "copy" "*.* "||toolpath||"\*.* > NUL "
  29. ""||bootdrive||"\os2\unpack vsvga.sy@ "||bootdrive||"\os2\mdos  > NUL"
  30.  
  31.  
  32. If tooldrive <> '' Then Do
  33.   Call SysCreateObject 'WPProgram', 'SiS Install','<WP_DESKTOP>','OBJECTID=<TK_SISDRV>;EXENAME='||toolpath||'\sisinst.cmd;PROGTYPE=PM;ICONFILE='||toolpath||'\sis.ico','R'
  34. End
  35. /*****************************************************************************/
  36. /*        Update the CONFIG.SYS                                              */
  37. /*****************************************************************************/
  38.   Call Tk21ChgConfig
  39.  
  40.  
  41. /****************/
  42. /* Exit program */
  43. /****************/
  44. Endit:
  45. Exit 0
  46.  
  47. /***************************/
  48. /* Change the CONFIG.SYS   */
  49. /***************************/
  50.  
  51. Tk21ChgConfig:   /* change the config.sys file for Toolkit 2.1 */
  52.  
  53. '@cls'
  54.  
  55. oldconfig=bootdrive'\CONFIG.SYS'
  56. newconfig=bootdrive'\CONFIG.BK$'
  57.  
  58. os2vsvga='DEVICE='bootdrive'\OS2\MDOS\VVGA.SYS'
  59.  
  60. /*
  61.  * read the file one line at a time, and write it all out, making
  62.  * changes accordingly - need to change path, libpath, help, bookshelf
  63.  * ipfc, include, lib
  64.  */
  65.  
  66. '@del 'newconfig ' 2>nul >nul'
  67.  
  68. Do while lines(oldconfig)
  69.     inline=linein(oldconfig)
  70.  
  71.     /******************************************/
  72.     /* parse the line into variable and value */
  73.     /******************************************/
  74.  
  75.     parse value inline with os2var ' ' os2value
  76.  
  77.     /********************************************************/
  78.     /* translate the variable into uppercase for comparison */
  79.     /********************************************************/
  80.  
  81.     os2var=translate(os2var)
  82.     Select
  83.  
  84.         /********************************************************/
  85.         /*          For Add VSVGA                               */
  86.         /********************************************************/
  87.  
  88.         when os2var=os2vsvga Then Do
  89.             sisline='DEVICE='bootdrive'\OS2\MDOS\VSVGA.SYS'
  90.  
  91.             /*
  92.              * write the line out to the new config file
  93.              */
  94.  
  95.              result=lineout(newconfig, sisline)
  96.              If result=1 Then Do
  97.                  writeerror()
  98.                  return 1
  99.              End
  100.  
  101.         End
  102.  
  103.         otherwise Do
  104.             /*
  105.              * write the line out to the new config file
  106.              */
  107.  
  108.             result=lineout(newconfig, inline)
  109.             If result=1 Then Do
  110.                 writeerror()
  111.                 return 1
  112.             End
  113.         End
  114.  
  115.     End /* Select */
  116.  
  117. End /* Do */
  118.  
  119. /*********************/
  120. /* close the files   */
  121. /*********************/
  122.  
  123. result=lineout(newconfig)
  124. result=lineout(oldconfig)
  125.  
  126. /******************************************************************/
  127. /* Copy created file(CONFIG.BK$) to original file(CONFIG.SYS)     */
  128. /******************************************************************/
  129. '@copy 'newconfig' 'oldconfig' 2>nul >nul'
  130. '@del 'newconfig' 2>nul >nul'
  131.  
  132. /******************************************************************/
  133. /*  Finished the Update                                           */
  134. /******************************************************************/
  135.  
  136. '@cls'
  137. Say ' '
  138. Say '   Now Create A "SiS Install" Icon on Your Desktop'
  139. Say '   Please Shutdown and reboot. When System restart,'
  140. Say '   double click the "SiS Install" Icon to do further'
  141. Say '   installation.'
  142. Say ' '
  143.  
  144. return 0
  145.  
  146.  
  147. writeerror:         /* display a write error to the screen */
  148. '@cls'
  149. Say ' '
  150. Say ' '
  151. Say '                       *****  ERROR  *****'
  152. Say ' '
  153. Say '               An error occured while attempting to write the '
  154. Say '               'bootdrive'\CONFIG.SYS file.  Check the available disk'
  155. Say '               disk space on the current drive and retry the'
  156. Say '               install process.'
  157. Say ' '
  158. return 0
  159.  
  160.